object Dm_Procedures: TDm_Procedures
  OldCreateOrder = False
  Left = 68
  Top = 36
  Height = 722
  Width = 1138
  object IBS_InsAlt_Clientes: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CLIENTES'
    Left = 40
    Top = 16
    object IBS_InsAlt_ClientesRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_CLIENTES.RESPOSTA'
    end
  end
  object IBS_Apaga_Clientes: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_CLIENTES'
    Left = 40
    Top = 80
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
    object IBS_Apaga_ClientesRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'APAGA_CLIENTES.RESPOSTA'
    end
  end
  object IBS_InsAlt_Empresa: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_EMPRESA'
    Left = 176
    Top = 16
    object IBS_InsAlt_EmpresaRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_EMPRESA.RESPOSTA'
    end
  end
  object IBS_InsAlt_Fornecedores: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_FORNECEDORES'
    Left = 320
    Top = 18
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_FORNECEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CNPJ'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UF'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_RUA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTATO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_EMAIL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TELEFONE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FAX'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_IE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CEP'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'P_OBS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TIPO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Fornecedores: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_FORNECEDORES'
    Left = 320
    Top = 80
  end
  object IBS_InsAlt_Plano_Contas: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_PLANO_CONTAS'
    Left = 456
    Top = 18
  end
  object IBS_Apaga_Plano_Contas: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_PLANO_CONTAS'
    Left = 456
    Top = 80
  end
  object IBS_InsAlt_Produtos_Tipo: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_PRODUTOS_TIPO'
    Left = 600
    Top = 18
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_TIPO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Produtos_Tipo: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_PRODUTOS_TIPO'
    Left = 600
    Top = 80
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Cartoes: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CARTOES'
    Left = 40
    Top = 152
  end
  object IBS_Apaga_Cartoes: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_CARTOES'
    Left = 40
    Top = 208
  end
  object IBS_InsAlt_Unidade: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_UNIDADE'
    Left = 168
    Top = 152
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_UNIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ABREVIATURA_UNIDADE'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Unidade: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_UNIDADE'
    Left = 168
    Top = 216
  end
  object IBS_InsAlt_Produtos: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_PRODUTOS'
    Left = 320
    Top = 152
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_COMPRA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_MODO_ESTOQUE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_TIPO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_FORNECEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_INF_ADICIONAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_COD_BARRA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_IMPOSTOS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UNIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_MIN_ESTOQUE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA_2'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_IPI'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_BASE_ICMS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_INSIDE_ICMS_IPI'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_SITUACAO_TRIB'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CLASS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_GRADE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_BALANCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ALICOTA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_MARCA'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_CADASTRO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_ULTIMA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_MARGEM'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA_3'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_QUANTIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_REFERENCIA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_LINHA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_SUBSTRIBUTARIA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_FRETE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ETIQUETA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_AUMENTADESCR'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Produtos: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_PRODUTOS'
    Left = 320
    Top = 216
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Produtos_Obs: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_PRODUTOS_OBS'
    Left = 456
    Top = 152
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBSERVACOES'
        ParamType = ptInput
      end>
    object IBS_InsAlt_Produtos_ObsRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_PRODUTOS_OBS.RESPOSTA'
    end
  end
  object IBS_Apaga_Produtos_Obs: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_PRODUTOS_OBS'
    Left = 456
    Top = 208
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Produtos_Grade: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_PRODUTOS_GRADE'
    Left = 597
    Top = 152
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_DESCRICAO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_QUANTIDADE'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Produtos_Grade: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_PRODUTOS_GRADE'
    Left = 600
    Top = 208
  end
  object IBS_InsAlt_Mv_Estoque: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_MV_ESTOQUE'
    Left = 48
    Top = 296
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_QUANTIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_MODO_ESTOQUE'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Mv_Historico: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_MV_HISTORICO'
    Left = 176
    Top = 288
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTROLE'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_LANCA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_QUANTIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NUMERODANOTA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TERMINAL'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_COMPRA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTROLE_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ESTORNADO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_FORNECEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TURNO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_FINANCEIRO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Mv_Historico: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_MV_HISTORICO'
    Left = 176
    Top = 352
  end
  object IBS_InsAlt_Mv_Financeiro: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_MV_FINANCEIRO'
    Left = 320
    Top = 288
  end
  object IBS_Apaga_Mv_Financeiro: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_MV_FINANCEIRO'
    Left = 320
    Top = 352
  end
  object IBS_Apaga_Mv_Estoque: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_MV_ESTOQUE'
    Left = 48
    Top = 352
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_Insert_Alicota: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSERT_ALICOTAS'
    Left = 448
    Top = 288
    ParamData = <
      item
        DataType = ftString
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'P_ALICOTA'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Alicota: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_ALICOTAS'
    Left = 456
    Top = 352
  end
  object IBS_Altera_Produtos: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'ALTERA_PRODUTOS'
    Left = 608
    Top = 288
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_COMPRA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_FORNECEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_COD_BARRA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA_3'
        ParamType = ptInput
      end>
  end
  object IBS_APAGA_MARCAS: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_MARCAS'
    Left = 48
    Top = 424
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_INSALT_MARCAS: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_MARCAS'
    Left = 176
    Top = 408
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_MARCA'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Mv_Vendas: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_MV_VENDAS'
    Left = 384
    Top = 416
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTROLE'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CLIENTE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_LOGIN'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_TOTAL'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_ADICIONAL'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_PARCELAS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ESTORNADO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_ESTORNADO_DATA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_DINHEIRO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_CHEQUE'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_CARTAO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_CARNE'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_TICKET'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TERMINAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TURNO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CARTAO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_VR_CHEQUE_PRE'
        ParamType = ptInput
      end>
    object IBS_InsAlt_Mv_VendasRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_MV_VENDAS.RESPOSTA'
    end
  end
  object IBS_Apaga_Mv_Vendas: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_MV_VENDAS'
    Left = 512
    Top = 416
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Clientes_Obs: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CLIENTES_OBS'
    Left = 608
    Top = 352
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CLIENTE'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'P_OBS'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Clientes_Obs: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_CLIENTES_OBS'
    Left = 648
    Top = 416
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object ALT_PRODCODBAR: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'ALTERA_PRODUTOS_CODBARRAS'
    Left = 760
    Top = 16
  end
  object IBS_Apaga_Mv_Movimento: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_MV_MOVIMENTO'
    Left = 760
    Top = 80
    object IBS_Apaga_Mv_MovimentoRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'APAGA_MV_MOVIMENTO.RESPOSTA'
    end
  end
  object IBS_InsAlt_Mv_Movimento: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_MV_MOVIMENTO'
    Left = 784
    Top = 152
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTROLE'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_LOGIN'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALOR'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_QUANT'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_TOTAL'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_MODO_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CLIENTE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ESTORNADO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TERMINAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TURNO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_MODO_LANCAMENTO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_GRADE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_GRUPO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_USERNAME'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_DESCONTO'
        ParamType = ptInput
      end
      item
        DataType = ftTime
        Name = 'P_HORA_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VRPRAZO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_TOTALPRAZO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ENTREGUE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CLIENTES_ENTREGA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_SELECIONA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_VENDATERMINAL'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_NRITEM'
        ParamType = ptInput
      end>
    object IBS_InsAlt_Mv_MovimentoRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_MV_MOVIMENTO.RESPOSTA'
    end
  end
  object IBS_InsAlt_Terminais: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_IMPORTA'
    Left = 784
    Top = 216
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TERMINAL'
        ParamType = ptInput
      end>
    object IBS_InsAlt_TerminaisRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_IMPORTA.RESPOSTA'
    end
  end
  object IBS_Apaga_Terminais: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_IMPORTA'
    Left = 784
    Top = 280
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_ImportaProdutos: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'IMPORTA_PRODUTOS'
    Left = 784
    Top = 352
    ParamData = <
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_COMPRA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_MODO_ESTOQUE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_TIPO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_FORNECEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_INF_ADICIONAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_COD_BARRA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_IMPOSTOS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UNIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_MIN_ESTOQUE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA_2'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_IPI'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_BASE_ICMS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_INSIDE_ICMS_IPI'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_SITUACAO_TRIB'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CLASS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_GRADE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_BALANCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ALICOTA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_MARCA'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_CADASTRO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_ULTIMA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_MARGEM'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_VENDA_3'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_QUANTIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_REFERENCIA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_LINHA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_SUBSTRIBUTARIA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_FRETE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ETIQUETA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_AUMENTADESCR'
        ParamType = ptInput
      end>
  end
  object IBS_ImportaProdutos_Grade: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'IMPORTA_PRODUTOS_GRADE'
    Left = 784
    Top = 416
  end
  object IBS_IMPORTA_GRUPOS: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'IMPORTA_GRUPOS'
    Left = 48
    Top = 496
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_TIPO'
        ParamType = ptInput
      end>
  end
  object IBS_APAGA_Natureza: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_NATUREZA'
    Left = 176
    Top = 496
    object IBS_APAGA_NaturezaRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'APAGA_NATUREZA.RESPOSTA'
    end
  end
  object IBS_InsAlt_Natureza: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_NATUREZA'
    Left = 304
    Top = 496
    object IBS_InsAlt_NaturezaRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_NATUREZA.RESPOSTA'
    end
  end
  object IBS_AlteraQtdeProdutos: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'ALTERA_QTDEPRODUTOS'
    Left = 456
    Top = 504
    ParamData = <
      item
        DataType = ftBCD
        Name = 'P_QUANT'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_IMPORTA_FORNECEDORES: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'IMPORTA_FORNECEDORES'
    Left = 624
    Top = 504
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_FORNECEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CNPJ'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UF'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_RUA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTATO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_EMAIL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TELEFONE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FAX'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_IE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CEP'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'P_OBS'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_NotaFiscal: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_NOTA_FISCAL'
    Left = 800
    Top = 496
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ENTRADASAIDA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NATOPERACAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CFOP'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_RAZAOSOCIAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CNPJCPF'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATAEMISSAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ENDERECO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_BAIRRO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CEP'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATASAIDAENTRADA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FONEFAX'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UF'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_IE'
        ParamType = ptInput
      end
      item
        DataType = ftTime
        Name = 'P_HORASAIDA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_DUPLICATA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_VENCIMENTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NUMEROCUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATACUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORCUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_BASEICMS'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORICMS'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_TOTALPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORFRETE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORSEGURO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORDESPESAS'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORTOTALIPI'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORTOTALNOTA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOMETRANSPORTADORA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_EMITENTEDESTINATARIO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_PLACAVEICULO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UFPLACATRANSPORTADORA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CNPJTRANSPORTADORA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ENDERECOTRANSPORTADORA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CIDADETRANSPORTADORA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UFTRANSPORTADORA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_IETRANSPORTADORA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_QUANTIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ESPECIE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_MARCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_PESOBRUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_PESOLIQUIDO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_NUMERO_NOTA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS3'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS4'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS5'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS6'
        ParamType = ptInput
      end>
    object IBS_InsAlt_NotaFiscalRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_NOTA_FISCAL.RESPOSTA'
    end
  end
  object IBS_Importa_Marcas: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'IMPORTA_MARCA'
    Left = 272
    Top = 424
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_MARCA'
        ParamType = ptInput
      end>
    object IBS_Importa_MarcasRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'IMPORTA_MARCA.RESPOSTA'
    end
  end
  object IBS_InsAlt_ItensNota: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_ITENSNOTA'
    Left = 944
    Top = 416
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO_NOTA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_DESCRICAO_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_QTDE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALOR_UNITARIO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALOR_TOTAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_ALIQUOTA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_N_CAIXA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_N_CUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_CUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_N_ITEM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_COD_BARRA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_COD_GRUPO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_UNIMED'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO_CLIENTE'
        ParamType = ptInput
      end>
  end
  object IBS_IMPORTA_CLIENTES: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'IMPORTA_CLIENTES'
    Left = 176
    Top = 80
  end
  object IBS_Altera_Qtde_Estoque: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'ALTERA_QTDE_PRODUTOS'
    Left = 936
    Top = 344
    ParamData = <
      item
        DataType = ftBCD
        Name = 'P_QUANT'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_OrigemDestino: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_ORIGEMDESTINO'
    Left = 896
    Top = 16
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
    object IBS_Apaga_OrigemDestinoRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'APAGA_ORIGEM_DESTINO.RESPOSTA'
    end
  end
  object IBS_Insalt_OrigemDestino: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_ORIGEM_DESTINO'
    Left = 904
    Top = 88
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_DESCRICAO'
        ParamType = ptInput
      end>
    object IBS_Insalt_OrigemDestinoRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'INSALT_ORIGEM_DESTINO.RESPOSTA'
    end
  end
  object IBS_BaixaMvFinanceiro: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'BAIXA_MV_FINANCEIRO'
    Left = 920
    Top = 160
    ParamData = <
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_PAGO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_PAGAMENTO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_RECEBIDO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_EFETUADO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_HISTORICO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_JUROS'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_DESCONTO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_CaixaGeral: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_CAIXAGERAL'
    Left = 928
    Top = 280
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_CaixaGeral: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CAIXAGERAL'
    Left = 928
    Top = 224
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_DINHEIRO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_CHEQUE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_CHEQUEPRE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALETICHET'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_CARTAO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_BOLETO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_TOTAL'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALORRECEBIDO'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_TROCO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TERMINAL'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ESTORNADO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTROLE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CLIENTE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_LOGIN'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VR_ADICIONAL'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_PARCELAS'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_ESTORNADO_DATA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_CARTAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_USERNAME'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Banco: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_BANCO'
    Left = 64
    Top = 560
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NUM_BANCO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NOME_BANCO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Banco: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_BANCO'
    Left = 160
    Top = 560
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Cad_Cheque: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_CADASTRO_CHEQUE'
    Left = 400
    Top = 560
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Cad_Cheque: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CADASTRO_CHEQUE'
    Left = 272
    Top = 560
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NUM_BANCO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_AGENCIA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CONTA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_NUM_CHEQUE'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_VALOR_CHEQUE'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_EMISSAO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_VENCIMENTO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_EMITENTE'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_CADASTRO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_PORTADOR'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_REPASSE'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_REPASSE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_COMPENSADO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_DEVOLVIDO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CHEKA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_SELECIONA'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_RecDesp: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_RECEITA_DESPESA'
    Left = 528
    Top = 560
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_PLANO_CONTAS'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_RECEITA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_DESPESA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_TOTAL_RECEITA'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'P_TOTAL_DESPESA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_DESCRICAO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA_EMISSAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_CHEK'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_OBS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ESTORNADO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TERMINAL'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_LANCAMENTO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_COD_MV_FINANCEIRO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_RecDesp: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_RECEITA_DESPESA'
    Left = 661
    Top = 560
  end
  object IBS_Alt_Mv_Movimento: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'ALTERA_MV_MOVIMENTO'
    Left = 800
    Top = 560
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_MODO_VENDA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_TERMINAL'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_ESTORNADO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'P_DATA'
        ParamType = ptInput
      end>
    object IBS_Alt_Mv_MovimentoRESPOSTA: TIntegerField
      FieldName = 'RESPOSTA'
      Origin = 'ALTERA_MV_MOVIMENTO.RESPOSTA'
    end
  end
  object IBS_Apaga_Orcamento: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_ORCAMENTO'
    Left = 928
    Top = 496
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'P_CUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CAIXA'
        ParamType = ptInput
      end>
  end
  object IBS_Alt_EtiquetaEmpresa: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'ALTERA_ETIQUETAEMPRESA'
    Left = 928
    Top = 560
  end
  object IBS_InsAlt_CodBarra: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CODBARRA'
    Left = 56
    Top = 608
    ParamData = <
      item
        DataType = ftString
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'P_CODBARRA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CODPRODUTO'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_CodBarra: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_CODBARRA'
    Left = 168
    Top = 608
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'P_CODBARRA'
        ParamType = ptInput
      end>
  end
  object IBS_IMPORTA_CODBARRA: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'IMPORTA_CODBARRA'
    Left = 296
    Top = 608
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'P_CODBARRA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'P_CODPRODUTO'
        ParamType = ptInput
      end>
  end
  object Proc_Generica: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    Left = 1000
    Top = 56
  end
  object IBS_InsAlt_Carro: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CARRO'
    Left = 536
    Top = 608
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'MARCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'MODELO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'COR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PLACA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ANO'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'OBS'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DATA'
        ParamType = ptInput
      end>
  end
  object IBS_Apaga_Carro: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'APAGA_CARRO'
    Left = 632
    Top = 608
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'CODIGO'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Mv_Carro: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_MV_CARRO'
    Left = 744
    Top = 608
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'CUPOM'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'CAIXA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_CARRO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_CLIENTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'VENDEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'ESTORNADO'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'SERVICO'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'GARANTIA'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Cliente_Entrega: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_CLIENTES_ENTREGA'
    Left = 888
    Top = 608
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RESPOSTA'
        ParamType = ptOutput
      end
      item
        DataType = ftInteger
        Name = 'CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TELEFONE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ENDERECO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'BAIRRO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'UF'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'END_ENTREGA'
        ParamType = ptInput
      end>
  end
  object IBS_InsAlt_Simulacao: TIBStoredProc
    Database = Menu_Retaguarda.IBD_Retaguarda
    Transaction = Menu_Retaguarda.IBT_Retaguarda
    StoredProcName = 'INSALT_SIMULACAO'
    Left = 1008
    Top = 128
  end
end
